home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 19
/
Publication_19_19xx_Civitas_de_Side_B.d64
/
world conquest
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
10KB
|
334 lines
10 rem**********************
20 rem* world conquest *
25 rem* *
30 rem* howard campbell *
31 rem* 3463 piper drive *
32 rem* northwood, ohio *
33 rem* 43619 *
34 rem* (419) 698-1195 *
35 rem**********************
36 :
50 dimro%(51),cl%(51),sc(51),co%(51),tr%(51),bo%(51,5)
60 r=rnd(-ti):mo=0
90 print"[147]";:poke53280,0:poke53281,0:poke646,7
92 gosub6000:gosub9100:fori=1to10:gosub9500:nexti:gosub30000:gosub30000
93 print"instructions? y or n"
94 geta$:ifa$=""then94
98 ifa$="y"thengosub20000
99 print"[147]";:goto 2000
100 remcomputer's selection of poa
105 p1=1:p2=0:co=2
108 la=at:f=0
110 b1=1:e1=50:s1=1:r=rnd(.):ifr>.5thene1=25
115 r=rnd(.):ifr>.5thenb1=50:e1=1:s1=-1:r=rnd(.):ifr>.5thenb1=25
120 k=0:l=0:fori=b1toe1steps1:r=rnd(.)
130 ifco%(i)<>2then150
140 ifr>.3thenk=1:ba=i:i=e1
150 nexti
151 ifco%(la)=2andf=0thenba=la:k=1:goto160
152 ifco%(la-(la<50))=2andf=0thenk=1:ba=la+1:goto160
153 ifco%(la-(la>1))=2andf=0thenk=1:ba=la-1:goto160
160 f=1:forj=1to4
165 ifco%(bo%(ba,j))=7thenat=bo%(ba,j):l=1
169 nextj:ifk=0orl=0then110
172 print"";:printspc(33)"base [157][157][157]"ba
173 print"";:printspc(33)" "
180 r=int(rnd(.)*2+1):iftr%(ba)<=2thenr=1
182 iftr%(ba)>=tr%(at)thenr=2
185 on r gosub200,300
190 return
200 remcomputer troop build-up
205 print"";:printspc(33)"deploy"
210 tp=int(te%(p1)*.2):iftp<5thentp=5
220 tr%(ba)=tr%(ba)+tp
230 gosub560
240 return
300 remattack mode
302 print"";:printspc(33)"att."at
310 sa=int(tr%(ba)*.2+.5)
320 ca%(0)=int(rnd(.)*3):ca%(1)=int(rnd(.)*3)
325 gosub9000
330 tr%(ba)=tr%(ba)-ca%(1):iftr%(ba)<=1thentr%(ba)=1:win=1
340 tr%(at)=tr%(at)-ca%(0):iftr%(at)<=0thengosub400:return
350 iftr%(ba)>saandp1=1then320
360 gosub500:return
400 remoccupation
410 tr%(at)=int(tr%(ba)*.5):tr%(ba)=tr%(ba)-tr%(at)
420 p=sc(at):pokep,co:pokep+1,co:pokep+2,co:pokep+3,co:pokep+40,co:pokep+41,co
430 pokep+42,co:pokep+43,co:pokep+80,co:pokep+81,co:pokep+82,co:pokep+83,co
435 co%(at)=co
440 te%(p1)=te%(p1)+1:te%(p2)=te%(p2)-1
450 gosub500:win=1:return
500 remposition and print
510 print"";:sc$=str$(tr%(at))
515 le=len(sc$):sc$=right$(sc$,le-1)
520 ifcl%(at)=0then540
530 fori=1tocl%(at):print"";:next
540 fori=1toro%(at):print"";:next
550 print"[150] [157][157]"sc$
560 print"";:sc$=str$(tr%(ba))
565 le=len(sc$):sc$=right$(sc$,le-1)
570 ifcl%(ba)=0then580
575 fori=1tocl%(ba):print"";:next
580 fori=1toro%(ba):print"";:next
590 print"[150] [157][157]"sc$
595 return
1000 print"1 [170]2 [170]3 [170]4 [223]"
1010 print" [170] [170] [170] "
1020 print"[175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][175]"
1030 print"5 [170]6 [170]7 [170]8 "
1040 print" [170] [170] [170] "
1050 print"[175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][175]"
1060 print"9 "
1070 print" "
1080 print"[175][175][175][175]"
1090 print"10 [170]11 [170]12 [170]13 [223]"
1100 print" [170] [170] [170] "
1110 print"[175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][175]"
1120 print"14 [170]15 [170]16 [170]17 [170]26 [170]
1130 [153]" + + + + +
1140 print"[175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][186]
1150 [153]"18 +19 +20 +21 "
1160 [153]" + + + "
1170 [153]"andandandsqrandandandsqrandandandsqrandandandand"
1180 [153]"22 +23 +24 +25 "
1190 [153]" + + + "
1200 [153]"(NULL)andandsqrandandandsqrandandandsqrandandandwaitstep"
1210 [153]""[166]20)"27 +28 (NULL)"
1220 [153][166]20)" + "
1230 [153][166]20)"andandandsqrandandandand"
1240 [153][166]20)"29 +30 "
1250 [153][166]20)" + "
1260 [153][166]20)"andandandsqrandandandand"
1270 [153][166]20)"31 +32 +33 (NULL)"
1280 [153][166]20)" + + "
1290 [153][166]20)"andandandsqrandandandsqrandandandand"
1300 [153][166]20)"34 +35 +36 "
1310 [153][166]20)" + + "
1320 [153][166]20)"andandandsqrandandandsqrandandandand"
1330 [153][166]20)"37 +38 +39 45 (NULL)";
1340 [153][166]20)" + + ";
1350 [153][166]20)"andandandsqrandandandsqrandandandandandandandand";
1360 [153][166]20)"40 +41 +42 +43 +44 ";
1370 [153][166]20)" + + + + ";
1380 [153][166]20)"andandandsqrandandandsqrandandandsqrandandandsqrandandandand";
1390 [153][166]20)"46 +47 +48 +49 +50 ";
1400 [153][166]20)" + + + + wait";
1410 [153][166]20)"(NULL)andandsqrandandandsqrandandandsqrandandandsqrandandandwaitstep"
1411 [153]""[166]28)"print(NULL)lenlenlenlenlenlenlenlenlenlenright$";
1412 [153][166]28) "peek world peek" ;
1413 [153][166]28) "peek conquest peek" ;
1414 [153][166]28) "mid$lenlenlenlenlenlenlenlenlenlen(NULL)" ;
1415 [153]"";:[153][166]32)"contcomputer";:[153][166]34)"moves"
1420 [142]
2000 [143]main trunk
2010 [141]1000
2030 :
2040 [141]7000
2050 [141]100
2060 [139]te%(1)[178]50 [167] [141]4000:[153]"computer wins":[137]9600
2070 [141]3000:[141]5000
2080 [139]te%(0)[178]50 [167][141]4000:[153]"you win":[137]9600
2090 [137] 2050
3000 [143]player selection of poa
3010 [141]4000:co[178]7:p1[178]0:p2[178]1
3020 [151]198,0:[153]"sysenter playing position print";:l[178]2:c[178]7:n[178]1:[141]29700
3022 ba[178][197](a$)
3030 [139]ba[179]1[176]ba[177]50[167]3000
3031 [139]co%(ba)[178]2[167]3000
3040 [141]4000:[153][166]10)"f1wait - attack":[153][166]10)"f3wait - deploy":[151]198,0
3050 a$[178]"":[161]a$:[139]a$[179][177]"input"[175]a$[179][177]"dim"[167]3050
3060 a[178][198](a$)[171]132:[145] a [141]3200,210
3070 [141]4000:[142]
3200 [143]player attack mode
3210 [141]4000:[153]"sysenter position of area under attack print";:l[178]2:n[178]1:win[178]0
3215 [141]29700:at[178][197](a$)
3220 k[178]0:[129]i[178]1[164]4:[139]at[178]bo%(ba,i)[167]k[178]1
3230 [130]i:[139]k[178]0[167]3200
3235 [141]4000
3240 [141]320:[139]win[178]1[167][142]
3250 [141]4020:[153]"syscontinue attack? ywait or nwait"
3260 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]3260
3270 [139]a$[178]"y"[167]3240
3275 [141]4000
3280 [142]
4000 [143]erase bottom and position print
4010 [158] 924
4020 [153]"";:[129]i[178]1[164]22:[153]"";:[130]
4030 [142]
5000 mo[178]mo[170]1:[153]"open"mo:[153]"moves":[142]
6000 [129]i[178]1[164]50:co%(i)[178]7:tr%(i)[178]5:[130]
6010 te%(0)[178]25:te%(1)[178]25
6020 [129]i[178]1[164]50
6030 [135] cl%(i),ro%(i),sc(i)
6040 [129]j[178]1[164]4:[135]bo%(i,j):[130]
6050 [130]i
6055 [129]i[178]960[164]1022:[135]a:[151]i,a:[130]
6056 [151]2040,15:v[178]53248:[151]v[170]39,10:[151]v[170]28,1:[151]v[170]37,7:[151]v[170]38,0
6060 [142]
6070 [131] 0 , 1,55296,0 ,0 ,5 ,2
6080 [131] 4 , 1,55300,1 ,6 ,3 ,0
6090 [131] 8 , 1,55304,2 ,7 ,4 ,0
6100 [131] 12, 1,55308,3 ,8 ,0 ,0
6110 [131] 0 , 4,55416,0 ,0 ,6 ,1
6120 [131] 4 , 4,55420,5 ,0 ,7 ,2
6130 [131] 8 , 4,55424,6 ,9 ,8 ,3
6140 [131] 12, 4,55428,7 ,9 ,0 ,4
6150 [131] 10, 7,55546,7,8,12,13
6160 [131] 0 ,10,55656,0 ,14,11,0
6170 [131] 4 ,10,55660,10,15,12,0
6180 [131] 8 ,10,55664,11,16,13,9
6190 [131] 12,10,55668,12,17,9 ,0
6200 [131] 0 ,13,55776,0 ,18,15,10
6210 [131] 4 ,13,55780,14,19,16,11
6220 [131] 8 ,13,55784,15,20,17,12
6230 [131] 12,13,55788,16,21,26,13
6240 [131] 0 ,16,55896,0 ,22,19,14
6250 [131] 4 ,16,55900,18,23,20,15
6260 [131] 8 ,16,55904,19,24,21,16
6270 [131] 12,16,55908,20,25,0 ,17
6280 [131] 0 ,19,56016,0 ,0 ,23,18
6290 [131] 4 ,19,56020,22,0 ,24,19
6300 [131] 8 ,19,56024,23,0 ,25,20
6310 [131] 12,19,56028,24,0 ,0 ,21
6320 [131] 16,13,55792,17,0 ,37,0
6330 [131] 20,1 ,55316,0,29,28,0
6340 [131] 24,1 ,55320,27,30,0,0
6350 [131] 20,4 ,55436,0,31,30,27
6360 [131] 24,4 ,55440,29,32,0,28
6370 [131] 20,7,55556,0,34,32,29
6380 [131] 24,7,55560,31,35,33,30
6390 [131] 28,7,55564,32,36,0,0
6400 [131] 20,10,55676,0,37,35,31
6410 [131] 24,10,55680,34,38,36,32
6420 [131] 28,10,55684,35,39,0,33
6430 [131] 20,13,55796,26,40,38,34
6440 [131] 24,13,55800,37,41,39,35
6450 [131] 28,13,55804,38,42,0,36
6460 [131] 20,16,55916,0,46,41,37
6470 [131] 24,16,55920,40,47,42,38
6480 [131] 28,16,55924,41,48,43,39
6490 [131] 32,16,55928,42,49,44,0
6500 [131] 36,16,55932,43,50,0,45
6510 [131] 36,13,55812,0,44,0,0
6520 [131] 20,19,56036,0,0,47,40
6530 [131] 24,19,56040,46,0,48,41
6540 [131] 28,19,56044,47,0,49,42
6550 [131] 32,19,56048,48,0,50,43
6560 [131] 36,19,56052,49,0,0,44
6570 [131] 0,0,0,24,0,128,0,0,64,1,130,2,128,1,9,96,104,36
6580 [131] 24,4,144,6,98,64,1,145,0,0,84,0,170,101,85,85,86,170,1,148,0,6,153
6590 [131]0,24,146,64,96,144,144,128,128,36,0,144,9,0,0,2,0,144,0,0,0,0
7000 [143]select computer's positions
7010 [129]i[178]1[164]25
7020 r[178][181]([187](.)[172]50[170]1)
7030 [139]co%(r)[178]2[167]7020
7040 co%(r)[178]2
7050 p[178]sc(r):[151]p,2:[151]p[170]1,2:[151]p[170]2,2:[151]p[170]3,2:[151]p[170]40,2:[151]p[170]41,2
7060 [151]p[170]42,2:[151]p[170]43,2:[151]p[170]80,2:[151]p[170]81,2:[151]p[170]82,2:[151]p[170]83,2
7070 [130]i
7080 [129]ba[178]1[164]50:[141]560:[130]ba
7090 [142]
7091 ba[178]25:at[178]26
8000 so[178]54272
8010 [151]so,12:[151]so[170]1,1:[151]so[170]24,15
8020 [151]so[170]5,15:[151]so[170]6,252:[151]so[170]4,129
8030 [142]
8040 so[178]54272
8050 [151]so[170]7,12:[151]so[170]8,1:[151]so[170]24,15
8060 [151]so[170]12,15:[151]so[170]13,252:[151]so[170]11,129
8070 [142]
9000 y[178]43[170]7.52[172](ro%(at))
9005 y1[178]43[170]7.52[172](ro%(ba))
9010 x[178]17[170]7.09[172](cl%(at)[170]3)
9015 x1[178]17[170]7.09[172](cl%(ba)[170]3)
9020 [139]x[177]255[167][151]v[170]16,1:x[178]x[171]255
9025 [139]x1[177]255[167][151]v[170]16,3:x1[178]x1[171]255
9030 [151]v,x:[151]v[170]1,y:[151]v[170]21,1
9040 [141]8000:[151]v[170]21,0
9045 [151]v,x1:[151]v[170]1,y1:[151]v[170]21,1
9046 [141]8040:[151]v[170]21,0:[151]v[170]16,0
9049 [151]so[170]4,128:[151]so[170]11,128
9050 [142]
9100 [153]"load"
9105 a$[178]" sgn then (NULL)usr(NULL) (NULL)usr(NULL) fn (NULL)(NULL) ":[141]10000:[141]9500
9110 a$[178]" sgn peek then sgn then (NULL)andsqr fn sgn sgn ":[141]10000:[141]9500
9120 a$[178]" sgn peek then sgn then sgn(NULL) fn sgn sgn ":[141]10000:[141]9500
9130 a$[178]" (NULL)andpeekandsqr (NULL)andsqr sgn (NULL) (NULL)andand (NULL)(NULL) ":[141]10000:[141]9500
9140 a$[178]" ":[141]10000
9150 a$[178]"(NULL)usrusr (NULL)usr(NULL) (NULL)usr(NULL) (NULL)usr(NULL) fn then (NULL)usrusr (NULL)usrusr usr(NULL)usr":[141]10000:[141]9500
9160 a$[178]"fn fn then fn then fn then fn then fn (NULL) then":[141]10000:[141]9500
9170 a$[178]"fn fn then fn then fn then fn then (NULL)usrusr usr(NULL) then":[141]10000:[141]9500
9180 a$[178]"(NULL)andand (NULL)andsqr fn then (NULL)andsqr (NULL)andsqr (NULL)andand andandsqr then":[141]10000:[141]9500
9190 a$[178]" (NULL) ":[141]10000:[141]9500
9200 [153]"":a$[178]"written by:":[141]10000:a$[178]"howard campbell ii":[141]10000
9210 [142]
9500 [143]random explosions
9510 x[178][187](.)[172]200[170]50
9520 y[178][187](.)[172]200[170]50
9530 x1[178][187](.)[172]200[170]50
9540 y1[178][187](.)[172]200[170]50
9550 [141]9020
9560 [142]
9600 [129]i[178]1[164]100:[141]9500:[130]i:[128]
10000 a[178][195](a$):[139]a[173]2[179][177][181](a[173]2)[167]a$[178]" "[170]a$:[137]10000
10010 [129]i[178]1[164]a[173]2:[153][163]19[171]i);[200](a$,i);[201](a$,i):[153]"on";
10020 [130]i:[153]:[142]
20000 [153]"loadprintthe redsprint are intent on world domination.";
20010 [153]"you are the commander of the sysyellowprint "
20020 [153]"army whose mission is to keep your "
20030 [153]"world free by defeating the red army "
20040 [153]"in all of the states on your world's "
20050 [153]"three continents. "
20060 [153]"each turn you are given the option of "
20070 [153]"attacking the red army on a direct front";
20080 [153]"or building up your troops in a given "
20090 [153]"state. "
20100 [153]"if you choose to attack the enemy you "
20110 [153]"must have over 1 troop in the attacking"
20120 [153]"front. if you win, the state will turn "
20130 [153]"to your color. "
20132 [153]"the number of troops is given in defpinkprint "
20134 [153]"in the center of each state. the number";
20138 [153]"of the state is in the upper left "
20139 [153]"corner. "
20140 [153]"beware!! the enemy commander is clever "
20150 [153]"and shows no mercy!!! he may attack you"
20160 [153]"or build up troops to carry out his "
20170 [153]"own plan to defeat your armies. "
20180 [153]"good luck!!! "
20200 [153][166]8)"syspress <space> to continue"
20210 [161]a$:[139]a$[178]""[167] 20210
20220 [142]
29700 [151]251,l : [143]input length
29710 a$[178]"" : [143]initialize
29720 [158]828 : [143]activate irq wedge
29730 [151]646,c : [143]set input color
29740 [159]1,0:[132]1,a$:[160]1
29750 [139]a$[178]""[167]29040
29755 f[178]0
29760 [129]i[178]1[164][195](a$) : [143]check numeric input
29770 [139]n[178]1[167][139][198]([202](a$,i))[179]48[176][198]([202](a$,i))[177]57[167]f[178]1
29780 [130]i
29785 [139]f[178]1[167]29740
29790 [158] 911 : [143]deactivate irq wedge
29800 [142]
30000 [135]l :[143]start position of ml routine
30010 [135]a$:[139]a$[178]"*"[167][142]
30020 [143]convert hexadecimal to decimal
30030 a[178][198](a$)[171]48:b[178][198]([201](a$,1))[171]48
30040 n[178]b[170]7[172](b[177]9)[170](16[172](a[170]7[172](a[177]9)))
30050 [151]l,n:l[178]l[170]1:[137]30010
30060 [131]828
30070 [131]38,20,f0,ff,86,fd,84,fe,18,a5,fe,65,fb,85,fc,a6,fb,a9,11,20,d2,ff
30080 [131]a9,b7,20,d2,ff,ca,d0,fa,20,86,03
30090 [131]78,a9,6a,8d,14,03,a9,03,8d,15,03,58,60
30100 [131]38,20,f0,ff,c4,fc,90,03,20,86,03,c4,fe,b0,03,20,86,03,e4,fd,f0,03
30110 [131]20,86,03,4c,31,ea,18,a6,fd,a4,fe,20,f0,ff,60
30120 [131]78,a9,31,8d,14,03,a9,ea,8d,15,03,58,60,*
30130 [131] 924
30140 [131] a0,50,a9,20,99,6f,07,88,d0,fa,60,*
60000 [129]i[178]2048[164][194](45)[170][194](46)[172]256
60010 [139][194](i)[178]143[175][194](i[170]1)[178]32[167][151]i[170]1,18
60020 [130]